home *** CD-ROM | disk | FTP | other *** search
/ Explorers of the New World / Explorers of the New World.iso / pc / exdata.dir / 00732_Set Text Attributes.ls < prev    next >
Encoding:
Text File  |  1995-09-10  |  1.7 KB  |  59 lines
  1. on setTextLineHeight
  2.   global textLineHeight
  3.   if the machineType = 256 then
  4.     set textLineHeight to 16
  5.   else
  6.     set textLineHeight to 16
  7.   end if
  8. end
  9.  
  10. on setBrowserLineHeight
  11.   global browserLineHeight
  12.   if the machineType = 256 then
  13.     set browserLineHeight to 18
  14.   else
  15.     set browserLineHeight to 20
  16.   end if
  17. end
  18.  
  19. on setFieldFont whichField
  20.   if the machineType = 256 then
  21.     set the textFont of cast whichField to "Times"
  22.   else
  23.     set the textFont of cast whichField to "Palatino"
  24.   end if
  25. end
  26.  
  27. on setBrowserAttributes
  28.   global browserLineHeight, bkgndColor, textColor
  29.   setFieldFont("browser")
  30.   set the textHeight of cast "browser" to browserLineHeight
  31.   set the textSize of field "browser" to 12
  32.   set the backColor of cast "browser" to bkgndColor
  33.   set the foreColor of cast "browser" to textColor
  34. end
  35.  
  36. on setTitleAttributes
  37.   set the textSize of field "Topic Title" to 18
  38.   set the textStyle of field "Topic Title" to "plain"
  39.   setFieldFont("Topic Title")
  40. end
  41.  
  42. on setTopicTextAttributes fieldName
  43.   global clickedTopic, textColor, bkgndColor, textLineHeight
  44.   set the backColor of cast fieldName to bkgndColor
  45.   set the foreColor of cast fieldName to textColor
  46.   setFieldFont(fieldName)
  47.   set the textHeight of cast fieldName to textLineHeight
  48. end
  49.  
  50. on setHilitTopicAttributes
  51.   global hilitBackground, hilitforeground
  52.   setFieldFont("hilitTopic")
  53.   set the textHeight of cast "hilitTopic" to the textHeight of cast "browser"
  54.   set the textSize of field "hilitTopic" to the textSize of field "browser"
  55.   set the backColor of cast "hilitTopic" to hilitBackground
  56.   set the foreColor of cast "hilitTopic" to hilitforeground
  57.   set the textStyle of cast "hilitTopic" to "bold"
  58. end
  59.